Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
(presumably by mistake), use this command to visit the file you really want." (byte-code "┴ëë½ê┼!╞!╟╚\n┴ë%+Cç" [buffer-file-name nil file-dir file-name file file-name-nondirectory file-name-directory read-file-name "Find alternate file: "] 7)])
Makes buffer visit that file, and marks it not modified." (byte-code "½ë┴┬├ëëë%¬î┴┬─┼ ₧A├ë╞ %Cç" [buffer-file-name read-file-name "Write file: " nil default-directory buffer-local-variables buffer-name] 6)])
Function to use to insert contents when reverting this buffer.
Gets two args, first the nominal file name to use,
and second, t if reading the auto-save file.")
(fset 'revert-buffer #[(&optional check-auto noconfirm) "½å ?\n\"ç` ¡Å─ ¡ï¡ê╞!¡â╟╚!ë ½â¬é\në¼à╠═!¬Γ\n¼ë╬╧╨\"!¡╓ ¼ê╤p!¼â╥╒=¼â╥╥╒½è \"ê¬ó╪!¼å╠┘\"ê╥\n ¼â┌ ê█ ê)▄ ?\"ê*d^bê▌╥!ê╒+ç" [revert-buffer-function check-auto noconfirm opoint recent-auto-save-p buffer-auto-save-file-name file-readable-p y-or-n-p "Buffer has been auto-saved recently. Revert from auto-save file? " auto-save-p buffer-file-name file-name error "Buffer does not seem to be associated with any file" yes-or-no-p format "Revert buffer from file %s? " verify-visited-file-modtime nil buffer-backed-up buffer-undo-list t buffer-read-only revert-buffer-insert-file-contents-function file-exists-p "File %s no longer exists!" unlock-buffer erase-buffer insert-file-contents after-find-file] 5 "\
Replace the buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.
When called from lisp, this is the first argument, CHECK-AUTO; it is optional.
Optional second argument NOCONFIRM means don't ask for confirmation at all.
If the value of `revert-buffer-function' is non-nil, it is called to
do the work." "P"])
(fset 'recover-file #[(file) "└ !┬ !½à├─ \"ê ╞ )╚ \"¼ç├╔\"¬á╩ï½Ö╦╠ ═\"!ê╬╨ ê╤╬\"ê)╥╬!¬â├╙!)ç" [expand-file-name file auto-save-file-name-p error "%s is an auto-save file" buffer-file-name make-auto-save-file-name file-name file-newer-than-file-p "Auto-save file %s not current" ((byte-code "┴=¼¥┬É├!ê┼╞╟╟╚ !½â╩¬ü╦ &æê═╬╧\"!ç" [system-type vax-vms "*Directory*" buffer-disable-undo standard-output call-process "ls" nil file-symlink-p file "-lL" "-l" file-name yes-or-no-p format "Recover auto save file %s? "] 9)) switch-to-buffer find-file-noselect t nil buffer-read-only erase-buffer insert-file-contents after-find-file "Recover-file cancelled."] 4 "\
Visit file FILE, but get contents from its last auto-save file." (byte-code "┴ëë½ê┼!╞!╟╚\n┴ë%+Cç" [buffer-file-name nil file-dir file-name prompt-file file-name-nondirectory file-name-directory read-file-name "Recover file: "] 7)])
(fset 'kill-some-buffers #[nil "└ ë¡░ @├\n!ë┼ÿ¼£╞H╟U¼ò╚╔╩╦\n!½â╠¬ü═#!½ä╬\n!ê* Aë¼Q╧)ç" [buffer-list list buffer buffer-name name "" 0 32 yes-or-no-p format "Buffer %s %s. Kill? " buffer-modified-p "HAS BEEN EDITED" "is unmodified" kill-buffer nil] 7 "\
For each buffer, ask whether to kill it." nil])
(fset 'auto-save-mode #[(arg) "¼ä ?¬É┬=¼ì<¼ë¿¡ö├V¡Å½è½ç¼â¬é╟ t½ï╚╔ ½â╩¬ü╦\"ê ç" [arg buffer-auto-save-file-name t 0 buffer-file-name auto-save-visited-file-name buffer-read-only make-auto-save-file-name message "Auto-save %s (in this buffer)" "on" "off"] 3 "\
Toggle auto-saving of contents of current buffer.
With arg, turn auto-saving on if arg is positive, else off." "P"])